*Ura & Wohlfarth PSRM*
*Replication Analysis*
*June 2020*


// set the working directory

log using "ura_wohlfarth_replication"

use "uraWohlfarthPSRM.dta"

tsset year

*Figure 1(a)
*Percentage of Jurisdiction-Stripping Laws
twoway line pctstrippl year if year > 1972, lcolor(black) lwidth(medthin) scheme(s1mono) xtitle(Year) xlabel(1973(5)2014) ytitle(Percentage of Jurisdiction-Stripping Laws) ylabel(0(2)8)
graph export figure1a.pdf, replace

*Figure 1(b)
*Count of Jurisdiction-Stripping Laws vs. Court-Curbing Bills Proposed
twoway line jurstriptotal curbingBills year if year > 1972, lcolor(black) lwidth(medthin) scheme(s1mono) xtitle(Year) xlabel(1973(5)2014) ytitle(Number of Congressional Actions) legend(order(1 "Jurisdiction Stripping Laws" 2 "Court-Curbing Bills"))
graph export figure1b.pdf, replace

*Table 1 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds

*Table 1 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds

*Table 1 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds

*Figure 2(a)
quietly nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds
quietly margins, at(conjudge=(0.24(.01)0.39))
marginsplot, xlabel(0.24(.03)0.39) ylabel(0(5)15) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in the Supreme Court) ytitle(Predicted Count of Jurisdiction-Stripping Laws) title("") scheme(s1mono)
graph export figure2a.pdf, replace

*Figure 2(b)
quietly nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds
quietly margins, at(conlegis=(0.06(.01)0.24))
marginsplot, xlabel(0.06(.03)0.24) ylabel(0(5)15) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in Congress) ytitle(Predicted Count of Jurisdiction-Stripping Laws) title("") scheme(s1mono)
graph export figure2b.pdf, replace

***Supplementary Appendix
*Table 1 -- Model 1
reg loggedPctStrip conjudge conlegis 
bgodfrey

*Table 1 -- Model 2
reg loggedPctStrip conjudge conlegis d.workloadThousands baileyDist_Midpoint
bgodfrey

*Table 1 -- Model 3
reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
bgodfrey

*Table 1 -- Model 4
reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint l.loggedPctStrip
bgodfrey


*Figure 1(a)
quietly reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
quietly margins, at(conjudge=(0.24(.01)0.39)) atmeans
marginsplot, xlabel(0.24(.03)0.39) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in the Supreme Court) ytitle(Percentage of Jurisdiction-Stripping Laws (Logged)) title("") scheme(s1mono)
graph export figure1a_appendix.pdf, replace

*Figure 1(b)
quietly reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
quietly margins, at(conlegis=(0.06(.01)0.24)) atmeans
marginsplot, xlabel(0.06(.03)0.24) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in Congress) ytitle(Percentage of Jurisdiction-Stripping Laws (Logged)) title("") scheme(s1mono)
graph export figure1b_appendix.pdf, replace

*Table 2 -- Relative Confidence
*Table 2 -- Model 1
nbreg jurstriptotal courtCongRelativeConf totalplHundreds
*Table 2 -- Model 2
nbreg jurstriptotal courtCongRelativeConf d.workloadThousands baileyDist_Midpoint totalplHundreds
*Table 2 -- Model 3
nbreg jurstriptotal courtCongRelativeConf workloadPerJudge_District baileyDist_Midpoint totalplHundreds


*Table 3 -- Net Confidence
*Table 3 -- Model 1
nbreg jurstriptotal courtNetConf congNetConf totalplHundreds
*Table 3 -- Model 2
nbreg jurstriptotal courtNetConf congNetConf d.workloadThousands baileyDist_Midpoint totalplHundreds
*Table 3 -- Model 3
nbreg jurstriptotal courtNetConf congNetConf workloadPerJudge_District baileyDist_Midpoint totalplHundreds


*Table 4 -- Add Unified Congress
*Table 4 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds unifiedCongress
*Table 4 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds unifiedCongress
*Table 4 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds unifiedCongress


*Table 5 -- Add Unified Government
*Table 5 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds unifiedGov
*Table 5 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds unifiedGov
*Table 5 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds unifiedGov


*Table 6 -- JCS Supreme Court-Congress Ideological Distance
*Table 6 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds
*Table 6 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands congCourtDist_JCS totalplHundreds
*Table 6 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District congCourtDist_JCS totalplHundreds


*Table 7 -- Workload Predictors Using All Civil Cases Involving the U.S. Government
*Table 7 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds 
*Table 7 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands_allCivil baileyDist_Midpoint totalplHundreds 
*Table 7 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudgeAll_District baileyDist_Midpoint totalplHundreds 
*Table 7 -- Model 4
nbreg jurstriptotal conjudge conlegis d.workloadPerJudgeAll_District baileyDist_Midpoint totalplHundreds 


*Table 8 -- Add Congress-Median Circuit Court Ideological Distance
*Table 8 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds congCircuitsDist_JCS
*Table 8 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds congCircuitsDist_JCS
*Table 8 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds congCircuitsDist_JCS


*Table 9 -- Add Congress-D.C. Circuit Ideological Distance
*Table 9 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds congDCDist_JCS
*Table 9 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds congDCDist_JCS
*Table 9 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds congDCDist_JCS
*Table 9 -- Model 4
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds d.congDCDist_JCS


*Table 10 -- Add Supreme Court-President Ideological Distance
*Table 10 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds baileyDist_President
*Table 10 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds baileyDist_President
*Table 10 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds baileyDist_President


*Table 11 -- Add Congress-President Ideological Distance
*Table 11 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds baileyDist_midCongPres
*Table 11 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds baileyDist_midCongPres
*Table 11 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds baileyDist_midCongPres



log close 
